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FIG.6A 
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FIG.7A 



Option Explicit 

'III. Type Declaration 

Wll/l/llllllll/lllll/lllllllllllllllim^^^^^^ 
I///. Constant Declaration 

Const ciFrmHeight As Integer = 5900 'III, Form height 
Const ciFrmHeight As Integer = 9600 'III, Form height 

iii//i/iiii/////ii//ii//iiiiii/iiiim 

llll. Variable Declaration 

Dim icountFound As Integer '///, No of series found 



;;lllliail«lli«ll«Ii» 



immmmmmmmmmmimmmmmmmm^ 



'III. Funtion Declaration 

Private Sub Form_Load() 

'III, Initialization 
Call P_LoadForm 

End Sub 



'III. Prototypes 
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FIG.7B 

////. 

'III. Synopssis :P_LoadFoam() 

/III. Name :Private Sub P_LoadForm() 

//// 

'III. Input :None 
'///. 

'III. Return :None 
W/lll/l/llllllllll/ll/l/l/llllll/lim 
Private Sub P_LoadFoam() 

'III Label initialization 

IblFirstRow.Caption = " " 

IblFirstValue.Caption = " " 

IblSecondRow.Caption = " " 

IblSecondValue.Caption = " " 

I bIThird Row. Caption = " " 

IblThirdValue.Caption = " " 

'III Parameters initialization 
•glErrCode = RC_SUCCESS 
'gsErrMsg = " " 
End Sub 




NIB U TSSA 



FIG.7C 
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Private Sub cmdOK_Click() 

Call P_FirstUpdate 
End Sub 



//////////////////////////////M 
'///. 

////. Synopssis :P_FirstUpdate 

//// 

fill. Name :Private Sub P_FirstUpdate() 
////. 

//If, Description : Update in the first form 
'///. 

'Ill, Input :None 
////. 

//// Return :None 

//// 

Private Sub P_FirstUpdate() 
Screen. MousePointer = vbHourglass 
'glErrCode = RC_SUCCESS 
Screen. MousePointer = vbDefault 
Call FindNoSeries 

End Sub 

Private Sub cmdCancel_Click() 

Unload Me 

Exit Sub 
End Sub 

Private Sub Form_Unload(Cancel AS Integer) 

fill. Clean up the form 

Call PJJnloadForm 
End Sub 
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iiMmmmmmmmmmmmmmmmmmmm, 
////. 

Hll Synopssis :P_FirstUploadForm 

'/// 

Hll. Name Private Sub P_UploadForm() 

//// 

Hll. Description : Release the resource which occupied by the parameters 
mi. in the form 

7/7 Input :None 
'///. 

Hll. Return :None 
'///. 

wmimiimimmimmmmmmmmimimimmimnmmm 

Private Sub P_UploadForm() 
End Sub 

mimimmimmimimmimimmimimimmimmiimmm 
mi 

Hll. Synopssis :FindNoSeries 

'/// 

mi. Name :FindNoSeries() As Long 

//// 

mi. Description :Function to update Uex file and stock cosing price 

//// 

//// Input :N/A 
//// 

Hll, Return :FindNoSeries RC_SUCCESS Success 

////, RC_ERROR Error 

'///. 

Public Funtion FindNo Series() As Long 
Dim gsPath As String 
Dim gsCEFile As String 
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Dim gsErrMsg As String 

Dim gsExist As String 

Dim takeFile As String 

Dim giCEFileNo As Integer 

Dim bCloseFileNo As Boolean 

Dim sNextLn As String 

Dim asNumberFound(800) As String 

Dim sFileName As String 

'FindNoSeries = RC_ERROR 

bCloseFile = True 

'gsErrMsg = " " 

'gsPath = App.Path 

'/// Name of file is SortRecord 

gsCEFILE = gsPath & 7" & "SortRecord" & 7" 

sExit = Dir(gsCEFile) 

sFileName = txtFileName.Text & ".txt" 

If sExist = sFileName Then 

bCloseFile = False 
End If 

If bCloseFileThen 

/III, "not found. Update process not proceeded." 

\ gsErrMsg = "SortRecord not found. Process stops." 

MsgBox (gsErrMsg) 

'FindNoSeries = RC_ERROR 

Exit Function 
End If 

giCEFileNo = FreeFile 

takeFile = gsCEFile & sExist 

Open takeFile For Input As #giCEFileNo 




Dim tILnNum As Long 
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ILnNum = 0 

Line Input #giCEFileNo. sNextLn 

Do Until UCase(Trim(sNextLn)) = "END" 

'/// Vailidation 
If EOF(giCEFileNo) Then 

////. "Unexpected end of file." 

gsErrMsg = "Unexpected end of file." 

MsgBox (gsErrMsg) 

'FindNo Series =RC_ERROR 

Exit Function 
End If 

If NotlsNumeric(sNexrLn) Then 
////, "Unexpected end of file." 

gsErrMsg = "Non-numeric input" & "Row" & ILnNum + 1 & "." 
MsgBox (gsErrMsg) 
'FindNoSeries = RC_ERROR 
Exit Function 
End If 

If ILnNum <> 0 Then 

If Val(asNumberFound(ILnNum - 1)) < Val(sNextLn) Then 

gsErrMsg = "The input numbers are not sorted.(at row" & ILnNum + 1 & ".)" 

MsgBox (gsErrMsg) 

'FindNoSeries = RC_ERROR 

Exit Function 
End If 
End If 

asNuberFound(ILnNum) = SNextLn 
DoEvents 

Line Input #giCEFileNo. SnextLn 
ILnNum = (ILnNum +1) 
Loop 





FIG.7F 
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If Not EOF(giFileNo) Then 

//// "Unexpected end of file" 
gsErrMsg = "unexpected end of file" 
MsgBox (gsErrMsg) 
'FindNoSeries = RC_ERROR 
Exit Function 

End If 

Close #giCEFileNo 

Dim IPrimaryNo As String 

Dim LsecondaryNo As String 

Dim ITotaINo As String 

Dim iOuterLoop As Integer 

Dim ilnnerLoop As Integer 

Dim bFound As Boolean 

Dim bNotFound As Boolean 

Dim IMagicNo As String 

Dim IToINo As String 

Dim IMagicOne As String 

Dim IMagicTwo As String 

Dim ITolOne As String 

Dim ITolTwo As String 

Dim asNumberOuput(200) As Long 

Dim iCountOutput As Integer 

Dim iFileNum As Integer 

Dim putFile As String 

bCloseFile = True 

////. "Unexpected end of file" 

'gsPath = App.Path 

'///, Name of file is SortRecord 

gsCEFile = gsPath & 7" & "Result" & 7" 
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'sExist = Dir(gsCEFile) 
'If sExist = "Try I .txt" 
bCloseFile = False 
'End If 

If bCloseFileThen 

//// "not found. Update process not proceeding." 
gsErrMsg = "Result not found. Process stops." 
MsgBox (gsErrMsg) 
'FindNoSeries = RC_ERROR 
Exit Function 

End If 

Hll, Open file for writing result 
iFileNum = FreeFile 

putFile = App.Path & "\" & "Result & "\" & txtFileName.Text & ".txt" 
Open putFile For Append as #iFileNum 

Hll, Set initial value 
iCountFound = 0 
cIMagicOne = Vai(txtDiff1 .Text) 
cIMagicTwo = Vai(txtDiff2.Text) 
cITolOne = Vai(txtToH.Text) 
cITolTwo = Vai(txtTol2.Text) 

bFound = False 

bNotFound = False 

iCountOuput = 0 

iMagicNo = cIMagicOne 

iTotaINo = ILnNum 

For iOuterLoop = 0 To (ITotaINo - 1) 

IPrimaryNo = asNumberFound(iOuterLoop) 

llll, Set all captions 

IblFirstValue. Caption = IPrimaryNo 

IblFirstRow.Caption = liOuterLoop = 1 



FIG.7I 
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IblSecondValue.Caption = " " 

IblSecondRow.Caption = " " 

IblThirdValue.Caption = " " 

IblThirdRow.Caption 

fill, Reset variable in interloop 

bFound = False 

bNotFound = False 

iMagicNo = cIMagicOne 

iToINo = ILnNum 
'///. set interloop begin value 
ilnnerloop = iOuterLoop = I 
'///. do until end of list or pattern found or not found 
Do until BFound Or bNotFound Or (ilnnerloop > ITotal - 1) 

ISecondaryNo = asNumbersFound(ilnnerLoop) 

If (Val(PrimaryNo) - Val(SecondaryNo)) .= (Val(MagicNo) - Val(ITolNo)) And 
(Val(PrimaryNo) - Val(SecondaryNo)) = (Val(MagicNo) - Val(ITolNo)) And_ 

If IMagicNo = cIMagicTwo Then 

IblThirdValue.Caption = ISecondaryNo 

IblThirdRow.Caption = ilnnerLoop + 1 

bFound = True 

'FindNoSeries = RC_SUCCESS 
Write #iFileNum, IPRimaryNo & "&" & ISecond & _ 
"&" & ISecondaryNo 

Write #iFileNum, IPRimaryNo & "&" & ISecond & "&" & ISecondaryNo 

'((IPrimaryNo - 18 + ISecond + ISeconaryNo +28) / 3 
iCountFound = iCountFound +1 
Else 

IblSecondValue.Coupon = ISecondaryNo 
IblSecondRow.Coupon = ilnnerLoop + 1 
ISecond = ISecondaryNo 
IMagicNo = cIMagicTwo 
End If 

Elself (Val(SecondaryNo) - Val(PrimaryNo)) > Val(MagicNO) Then 
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FIG.7J 





BNotFound = True 
End If 

ilnnerLoop = ilnnerLoop + 1 
Next 

//// Close file 

Close #iFileNum 

If bFound = False Then 
'FindNoSeries = RC_NOT_FOUND 
End If 

If iCountFound <> 0 Then 
IblTrueFalse.Caption = "True" 

MsgBox (iCountFound & "specific series number are found and save in 
"&" txtFileName.Text & ".txt) 
Else 

IblTrueFalse.Caption = "False" 
MsgBox ("The specific series number is not found!!!") 
End If 
End Function 



